p101_lineplot_data <- p101_betas_typed %>%
select (c (Beta_clonotype, p101_pretreatment, p101_prevax, p101_postvax, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p101_pretreatment" , "Pre-vaccine" = "p101_prevax" , "Post-vaccine" = "p101_postvax" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))
p103_lineplot_data <- p103_betas_typed %>%
select (c (Beta_clonotype, p103_pretreatment, p103_prevax, p103_postvax, p103_w48, p103_w72, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p103_pretreatment" , "Pre-vaccine" = "p103_prevax" , "Post-vaccine" = "p103_postvax" , "W48" = "p103_w48" , "W72" = "p103_w72" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" , "W48" , "W72" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))
p104_lineplot_data <- p104_betas_typed %>%
select (c (Beta_clonotype, p104_pretreatment, p104_prevax, p104_postvax, p104_w48, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p104_pretreatment" , "Pre-vaccine" = "p104_prevax" , "Post-vaccine" = "p104_postvax" , "W48" = "p104_w48" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" , "W48" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))
p105_lineplot_data <- p105_betas_typed %>%
select (c (Beta_clonotype, p105_pretreatment, p105_prevax, p105_postvax, p105_w48, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p105_pretreatment" , "Pre-vaccine" = "p105_prevax" , "Post-vaccine" = "p105_postvax" , "W48" = "p105_w48" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" , "W48" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))
p106_lineplot_data <- p106_betas_typed %>%
select (c (Beta_clonotype, p106_pretreatment, p106_prevax, p106_postvax, p106_w48, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p106_pretreatment" , "Pre-vaccine" = "p106_prevax" , "Post-vaccine" = "p106_postvax" , "W48" = "p106_w48" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" , "W48" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))
p108_lineplot_data <- p108_betas_typed %>%
select (c (Beta_clonotype, p108_pretreatment, p108_prevax, p108_postvax, p108_w32, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p108_pretreatment" , "Pre-vaccine" = "p108_prevax" , "Post-vaccine" = "p108_postvax" , "W32" = "p108_w32" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" , "W32" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))
p109_lineplot_data <- p109_betas_typed %>%
select (c (Beta_clonotype, p109_pretreatment, p109_prevax, p109_postvax, p109_w48, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p109_pretreatment" , "Pre-vaccine" = "p109_prevax" , "Post-vaccine" = "p109_postvax" , "W48" = "p109_w48" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" , "W48" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))
p110_lineplot_data <- p110_betas_typed %>%
select (c (Beta_clonotype, p110_pretreatment, p110_prevax, p110_postvax, p110_w38, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p110_pretreatment" , "Pre-vaccine" = "p110_prevax" , "Post-vaccine" = "p110_postvax" , "W38" = "p110_w38" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" , "W38" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))
p111_lineplot_data <- p111_betas_typed %>%
select (c (Beta_clonotype, p111_pretreatment, p111_prevax, p111_postvax, p111_w40, Type)) %>%
dplyr:: rename ("Pre-treatment" = "p111_pretreatment" , "Pre-vaccine" = "p111_prevax" , "Post-vaccine" = "p111_postvax" , "W40" = "p111_w40" ) %>%
pivot_longer (! c (Beta_clonotype, Type), names_to = "Timepoint" , values_to = "Frequency" ) %>%
mutate (Frequency = replace_na (Frequency, 0 ),
Timepoint = factor (Timepoint, levels = c ("Pre-treatment" , "Pre-vaccine" , "Post-vaccine" , "W40" )),
Type = factor (Type, levels = c ("Other" , "Existing" , "Post-Nivolumab" , "Post-Vaccine" )),
Beta_clonotype = forcats:: fct_reorder (as.factor (Beta_clonotype), rank (Type)))